home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #10 / Commodore_Disk_User_Vol.3_10_1990_-.d64 / sec v1.00 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  551b  |  16 lines
  1. 100 for l = 54272to54296:pokel,0:next l
  2. 200 poke53280,0:poke53281,0:poke646,1:poke 650,128:print"[147]"
  3. 300 if peek(145)=247 then print"[147]":goto 300:rem *  check door  *
  4. 400 if peek(145)=255 then print"close door to stop alarm!"
  5. 500 poke 53280,1:rem * flash screen *
  6. 600 s=54272     :rem *   sid chip   *
  7. 700 pokes+24,15 :rem *    volume    *
  8. 800 pokes+5,15  :rem *  attk/decay  *
  9. 900 pokes+4,17  :rem *   waveform   *
  10. 1000 pokes+1,100:rem *  hi/lo freq  *
  11. 1100 for y = 1 to 450:next
  12. 1200 poke 53280,0
  13. 1300 pokes+4,64
  14. 1400 fory=1to100:nexty
  15. 1500 goto 300
  16.